home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / keyboard intro.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  86 lines
  1. 90 POKE53280,9:POKE53281,9
  2. 100 PRINT"[147][150]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  3. 102 [153]"    (null)RIGHT$(null)(null)(null)(null)STR$(null)LEN(null)RIGHT$(null)(null)CLOSE(null)(null)CLOSE(null)LEFT$VALCLOSE(null)VAL(null)PEEK(null)ATN(null)STR$(null)
  4. 104 PRINT"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  5. 105 [153],"     BY
  6. 106 PRINT,"[211]TEVEN [196]ARNOLD
  7. 107 [153],"(null).(null). PEEKOX 201
  8. 108 PRINT,"[193]LEXANDRA, [206]EW [218]EALAND
  9. 109 [141]2000:[141]2000
  10. 110 [153]"LOAD(null)HE PURPOSE OF THIS PROGRAM IS TO
  11. 115 PRINT"DEMONSTRATE THE FEATURES OF THE KEYBOARD
  12. 120 [153]"AND GIVE YOU SOME PRACTICE IN USING THE
  13. 125 PRINT"KEYS.  [198]IRST OF ALL, HOLD DOWN THE [211][200][201][198][212]
  14. 130 [153]"KEY AND PRESS ORTANTANTANTAN^
  15. 132 PRINT"              [221][195][204][210] [221]
  16. 134 [153]"              (null)LEFT$(null)(null)VAL(null)
  17. 136 PRINT"              [173][192][192][192][192][189]
  18. 140 X$[178]"LOAD":[141]1000:[141]2000
  19. 145 [153]"(null)ELL DONE.  (null)OU HAVE JUST CLEARED THE
  20. 150 PRINT"SCREEN.  [206]OW DO IT AGAIN.":GOSUB1000:GOSUB2000
  21. 160 PRINT"[199]OOD.  [206]OW WHAT DO YOU THINK WILL HAPPEN
  22. 170 [153]"IF YOU PRESS LEN(null)(null)-LEFT$(null)(null)VAL WITHOUT HOLDING
  23. 180 PRINT"DOWN [211][200][201][198][212][146]?  [212]RY IT.":X$="":GOSUB1000:POKE204,0:GOSUB2000
  24. 190 PRINT"[147][193]S YOU SEE, PRESSING [195][204][210]-[200][207][205][197] ALONE PUTS
  25. 200 [153]"THE FLASHING CURSOR IN THE TOP CORNER
  26. 210 PRINT"WITHOUT CLEARING THE SCREEN.  [194]Y THE
  27. 220 [153]"WAY, THE TOP CORNER IS CALLED THE 'HOME'
  28. 230 PRINT"POSITION.  [206]OW PRESS [200][207][205][197][146] AGAIN.":GOSUB1000:POKE204,0:GOSUB2000
  29. 240 PRINT"[147][212]HE MAIN PART OF THE KEYBOARD WORKS JUST
  30. 250 [153]"LIKE A TYPEWRITER.  RIGHT$F YOU WANT CAPITAL
  31. 260 PRINT"LETTERS, PRESS THE SHIFT KEY.  [207]THERWISE
  32. 270 [153]"LOWER-CASE LETTERS WILL BE PRINTED.
  33. 280 PRINT"[212]YPE '[206]EW [217]ORK [195]ITY' AND THEN CLEAR THE
  34. 290 [153]"SCREEN.":A$[178]"(null)EW (null)ORK LENITYLOAD":[129]I[178]1[164]14:X$[178][202](A$,I,1):[141]1000
  35. 300 [130]:[141]2000
  36. 310 [153]"(null)OW TRY TYPING '201+395=596', THEN CLEAR
  37. 320 PRINT"THE SCREEN.":A$="201+395=596[147]":FORI=1TO12:X$=MID$(A$,I,1):GOSUB1000
  38. 330 NEXT:GOSUB2000
  39. 340 PRINT"[206]OW, HOME THE CURSOR AND TYPE:
  40. 350 [153]"     ATN BICYCLE HAS TWOWAIT WHEELS
  41. 360 PRINT"[212]O HIGHLIGHT THE WORD 'TWO', HOLD DOWN
  42. 370 [153]"LEN(null)(null)(null) AND PRESS (null)(null)(null)-(null)(null).  (null)O TURN OFF THE
  43. 380 PRINT"HIGHLIGHTING, HOLD DOWN [195][212][210][204] AND PRESS
  44. 390 [153]"(null)(null)(null)-(null)ASCASC.  (null)HEN YOU ARE FINISHED, CLEAR
  45. 400 PRINT"THE SCREEN.":A$="[193] BICYCLE HAS TWO[146] WHEELS[147]":FORI=1TO28
  46. 410 X$=MID$(A$,I,1):GOSUB1000:NEXT:GOSUB2000
  47. 420 PRINT"[206]OW TYPE THIS:
  48. 430 [153]"   ATNN INSECTWAIT HAS SIX LEGS":A$[178]"ATNN INSECTWAIT HAS SIX LEGS"
  49. 440 [129]I[178]1[164]24:X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
  50. 450 [153]:[153]"(null)OW THIS:
  51. 460 PRINT"   [193] SPIDER[146] HAS EIGHT LEGS":A$="[193] SPIDER[146] HAS EIGHT LEGS"
  52. 470 FORI=1TO25:X$=MID$(A$,I,1):GOSUB1000:NEXT:GOSUB2000
  53. 480 PRINT"[147][212]HE [195][210][211][210][146] KEYS ENABLE YOU TO MOVE THE
  54. 490 [153]"CURSOR AROUND THE SCREEN.  (null)ORMALLY THEY
  55. 500 PRINT"MOVE THE CURSOR DOWN OR RIGHT, BUT IF
  56. 510 [153]"YOU PRESS (null)LEFT$RIGHT$ASC(null)WAIT AT THE SAME TIME, THE
  57. 520 PRINT"CURSOR WILL MOVE UP OR LEFT.  [213]SE THE
  58. 530 [153]"LEN(null)(null)(null)WAIT KEYS TO FOLLOW THE TRACK BELOW.
  59. 540 PRINT"* ************ *******************
  60. 542 [153]"* *          * *                 *
  61. 544 PRINT"* * **** *** * * *** *************
  62. 546 [153]"* *    * * * * * * * *
  63. 548 PRINT"* ****** * * *** * * *************
  64. 550 [153]"*        * *     * *             *
  65. 552 PRINT"********** ******* ***************":PRINT"[145][145][145][145][145][145][145]";
  66. 555 A$="[145][145][145][145][145][145][145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][157]"
  67. 556 A$=A$+"[145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][145][145][157][157][157]"
  68. 560 FORI=1TO138:X$=MID$(A$,I,1):GOSUB1000:NEXT:PRINT"[147]":GOSUB2000
  69. 570 PRINT"[212]HE LAST KEY WE WILL EXAMINE IS THE
  70. 580 [153]"RIGHT$(null)(null)(null)-STR$VAL(null) KEY.  (null)HEN YOU MAKE A MISTAKE
  71. 590 PRINT"TYPING, PRESS THIS KEY TO DELETE THE
  72. 600 [153]"LAST LETTER.  (null)RY CORRECTING THESE
  73. 610 PRINT"SENTENCES:
  74. 620 [153]"   (null)HE CAPITAL OF VALNGLAND IS (null)ONDOS";:A$[178]"N":[129]I[178]1[164]2
  75. 630 X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
  76. 640 [153]:[153]"   (null)YDNEY IS A CITY IN ATNUSTRIA";:A$[178]"ALIA":[129]I[178]1[164]6
  77. 650 X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
  78. 660 [153]:[153]"   (null)ARIS IS THE CAPITAL OF ASCRNCE";:A$[178]"ANCE":[129]I[178]1[164]7
  79. 670 X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
  80. 680 [153]"LOAD(null)OU HAVE DONE VERY WELL.
  81. 999 END
  82. 1000 POKE204,0:PRINT" [157]";
  83. 1010 GETG$:IFG$<>X$THEN1010
  84. 1020 POKE204,1:PRINT" [157]"G$;:RETURN
  85. 2000 FORZ=1TO2000:NEXT:RETURN
  86.